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PREFACE 


This  report  describes  the  FORTRAN  program  REDIMEN  (REDIMENSIONING  PROGRAM). 
REDIMEN  was  written  to  facilitate  the  redimen stoning  of  the  common  variables  in  SAINT 
(Systems  Analysis  of  Integrated  Network  of  Tasks)  to  correspond  to  individual  modeling 
requirements. 

The  initial  concepts  and  detailed  design  of  REDIMEN  were  formulated  by  Deborah  J. 
Seifert.  Preliminary  implementation  was  accomplished  by  George  Koeplinger.  Initial 
use  and  minor  modifications  to  the  programs  were  accomplished  by  Constance  M.  Hoyland 
who  also  prepared  all  of  the  program  documentation. 


INTRODUCTION 


The  SAINT  program  that  is  available  for  distribution  has  default  array  sizes  to  accom¬ 
modate  a  model  with  certain  characteristics.  However,  the  model  characteristics  can 
be  altered  by  changing  the  values  of  variables  in  the  main  program  representing  these 
default  values  and  the  dimensions  of  the  associated  arrays  in  the  common  blocks  and 
all  SAINT  subprograms  where  their  associated  COMMON  blocks  appear. 

REDIMEN  was  written  to  facilitate  these  changes.  The  user  has  only  to  provide  the 
maximum  value  for  each  variable  and  the  source  program  for  SAINT  as  input.  RE  DIMEN 
creates  a  new  SAINT  source  program  with  the  user-specified  parameters  and  dimensions 
as  output.  Figure  1  shows  the  logic  flow  for  operating  the  REDIMEN  program. 


INPUTS 


Table  1  contains  the  SAINT  maximum  value  variables,  their  definition,  and  their  default 
values.  (Definitions  of  all  SAINT  COMMON  variables  can  be  found  in  Table  2.) 

The  model  characteristics  that  the  SAINT  program  will  accept  can  be  altered  by  chang¬ 
ing  these  variables.  For  example,  assume  that  a  SAINT  model  requires  that  the  largest 
task  number  be  500.  Entry  3  of  Table  1  indicates  that  the  name  of  the  variable  that  is 
set  to  the  largest  task  number  is  IMN  (which  is  presently  set  to  100).  Thus  IMN  must 
be  changed  to  500. 

Values  for  the  34  maximum  value  variables  are  read  into  REDIMEN,  Unit  5,  one  value 
to  a  card  in  an  (14)  format.  Be  careful  to  maintain  the  exact  format  and  sequence  of 
these  cards. 

After  REDIMEN  reads  In  the  maximum  values,  it  begins  reading  the  SAINT  source,  one 
80  column  card  image  at  a  time  from  Unit  8.  REDIMEN  determines  whether  a  change  in 
dimension  size  is  required,  and  if  so,  makes  the  alteration  before  copying  the  record  to 
the  output  file  on  Unit  9.  This  process  continues  until  the  entire  SAINT  source  has  been 
appropriately  revised  and  copied. 


OUTPUT 


The  output  file  on  Unit  9  contains  a  new  SAINT  source  with  the  user-specified  COMMON 
block  dimensions.  However,  since  REDIMEN  only  alters  the  array  sizes,  the  definition 


UNIT  a 


Figure  1.  Implementation  for  REDIMEN 


Table  1.  Dimension  Requirements  for  SAINT  Arrays 
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Table  1  (Continued) 


Mefcjrj  -ff 


of  the  maximum  value  variables  that  occurs  in  MAIN  have  not  been  updated.  Since 
these  values  must  exactly  match  the  definitions  of  the  variables  that  were  used  as 
input  to  the  REDIMEN  program,  they  should  be  changed  by  the  user  before  compiling 
SAINT. 

Table  2  contains  a  listing  of  the  SAINT  MAIN  program.  The  MAIN  program  contains 
all  of  the  SAINT  COMMON  blocks  with  the  correct  user-specified  dimensions.  Since 
user-written  subroutines  have  access  to  any  SAINT  variable  through  the  inclusion  of 
the  appropriate  SAINT  COMMON  block,  the  user  may  copy  any  of  the  COMMONS  from 
MAIN  for  this  purpose. 
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Table  2.  MAIN  Program  for  SAINT 


CUMMUN 

COMMON 

COMMON 

COMMON 

COMMON 

COMMUN 

COMMON 

COMMON 

COMMUN 

COMMON 


* 

COMMON 

* 

CCMMON 

COMMON 

COMMON 

• 

♦ 

COMMON 

COMMON 

* 

* 

COMMUN 

COMMON 

COMMON 

* 

CUMMON 

COMMON 

* 

• 

COMMON 

CUMMON 

* 

* 

COMMON 


/COMO  1/ 


/CUM02/ 

/CUM03/ 

/COM04/ 

/CUM05/ 

/CUM06/ 

/COM07/ 

/C0M08/ 

/COM OS/ 
/CUMIO/ 


/  CUM  1  1/ 

/CUM12/ 

/CUM13/ 

/CUM14/ 


/CUM15/ 

/C0M16/ 


/COMI7/ 

/coMia/ 

/COM19/ 

/C0M20/ 
/CQM2 1/ 


/C0M2 2/ 
/CUM23/ 


/CUM24/ 


10, IM, 1MM, IMNA , IMN,MAXOS,MOAD,NODR,MDNPT .MONSS, 
MUOAT  ,  MOCP,MOS  TR ,MLUT  ,  MF  LAG ,MMPT  S, MMOF  N,  MMSIU  , 
MNCEL ,MNCL  S, MNCL  T , MNCUP, MNH IS  , NNUPA , MNPL I »MNPTl) , 

MN  ST  P  ,  MN  SW  A  »  MN  V  AR  » MNVP  P, MOP NO, NPARM, MPL  UT , MSI  AT , 
MSYA  T  ,MTCHR,  NX  ST  A,  MYABA ,  NUQ 

AIR!  til  3)  ,  JTR  1(3  (  2),  OSC  1(300)  .NSETI400)  ,MFA,NXX, 
MFE(3),MLE(3), NQ (  3  ) 

IPOS, JPOS.KPUS , CPUS, MPOS.NPA, NAN, ILRKW, IERKF, IF  IN, 
I 1ECH, INOXS,  INOXT , INOX , JNOX ,KNOX , I P ,NUMF L ,1  CUNT , 

1  I SEO,HI VAC, 1BLNK, 12E RO,LA , LB ,LC ,L0 ,L t , LF ,L 0, LH ,LI 
LJ,LK,LL,LM,LN,LO,LP,LQ.LR.LS,LT ,LU,LV,LM,LX,LY ,C2 
IOFAL  (4)  ,  KRE  AO  (  40)  ,  IFL  AG(  50  )  ,  1RSUL  (  SO  )  ,RE  SUL  (  50  )  , 
IABC(8,50),KA40(60),I0IU(9) 

NPROJ , MUN, NOAY ,NYR ,NAME ( 2 ) • NKUN, NRUNS .NSKSR , 
NSKST,LLCVO, NN  LQO, NNE  QS , NNE  UT 

TNOW, TTNtX.MFAO.SEEO, 1  SEED, NCRDR ,NPRN T , NPUNuH , 
NRNIT,NRENT,MNOC,NOC,NDTN,NNTC 

NOE, NUPA  T ,NSYAT ,NDUP,NNM ,NNPA, NMOFN.NN, NPRMS , IFLPK 
JFLPR , KRNK, X  INN  *  NF CAO , NNCC  T  ,NNH I S.NNPLT  ,  NNS 1  A  , 
NNSTP,NPLOT,NSTTS 

NE IP.NEI S,NSIP,NS1 S, 1  TRACE , JTRACL ,NR1 SP.NKTEP, 

K  TR  AC  E,M  TRACE,  UK  SR,  l  ISSR,it*KAF,  JURAT  ,  1  J  TRAC  • 
NSVVS.NSVVt.NTSUt , NTSUS, LTR ACL ,NKTSS, NRTES 
P ARAM ( 100,5) ,NPIBU( 100),PARM1 (100) ,PAKM4( 10 J) 
t ACINI  100, 3), I TCMR( 100),LLTSK( 10  0, 2  I , L S 1 NK( 100 )  , 
MAC  IN ( 100,4)  ,MFfcN(  1 00  I , MF ST T I 1 00  I , NF T BU (  100)  , 

MOP  (  100) , MPO ( 1 00 ) • NDCH( 100, 2) , NOLL (  100)  ,N0P1( 100), 
NP AR ( 100 ) , NPO(  100) ,NPUOR( 1001 , NPUDS( 1 00) ,NPOP( 100) 
NPuK ( 100 ) ,NP  SUN ( 100 ) , NREL ( 100) ,NKLLP( 100) , 

NREL2( 100),NSIUN( 100) , NTC ( 100) ,NTCHR( 100) , 

NT  YPE ( 100I.KMARK1 100) ,XMARK( 100) 

BUSY (20) .CLRLSI 20,2), N6US( 20), NUPTR (20) , TLSI (20) , 
NOPA ( 600 ) ,RS  f A  T I  80 ) 

YABA( 850 ), NASA (  250  )  * S  TCHR (200) 
M0FNS(20),MFSTW(20),MFSTU(300) 

NS  INK ( 50 ) ,KSTPE ( 50 ) ,XSTTM( 50) ,XSTUS(50)  , NULLS ( 50) , 
XL  UW  (  50)  ,  WIDTH!  50)  ,  StiMAI  (  50 , 5)  ,  SUMAF  (  50 , 5  I  , 

JC£LS( 1350) 

OESCH(lOOO),OJAm  100  )  ,NOST  RI800)  »SVSA1  (100) 

AAERR , OT  MAX, 01 M I N* 0 T  SA V , 1 1 T  ES,LL tRK ,RRE  RR ,T IL AS , 
TTSAV.OT SUU, OT  FUL , DTNUW, I SE E S , RE  SL S , J TAC C ,LL S AV , 

L  SAVE 

SSI  100) , SSL (  100) ,001 100) ,DOL( 100) ,LLSVR (  100,2 ) 

IS (20) ,NABAU(300), YABARloOO) 

L  FLAG! 20 ) ,NPOSS( 20 ) ,NPOS T( 20) , LL MUNI 2 0, 2 ) , 

NABAT ( 40 ) ,NABA  S( 60 ) , T  HRL  S( 120) 
NSTAI(20),LLSVS(20,2),SSTPV(20,6) 

DTPL  T ( 10), I  I TAP( 10 ),NNPTS( 10) ,NNVAK(1 0) ,NNVP( 10) , 
LL  PL  T ,NNP  T  »L  LPH I ( 10),LLPLU( 10) ,LLSYM( 10) ,PPH1 (10), 
PPLOI 10) ,NVP(100),LLSVP( 1 1 , 2) , UP  SI T 1 1 100 ) 

TT  IME, PF  IRti 

LLUUC (20, 2), USUBV( 20, 5) ,LL UGI ( 20 ,2 ) ,1 TCLR (20) , 
USTPVI  20 ,6)  ,  LL  UGH<  20,  2 1  ,NNC EL  (  20  >  ,HHL UW(  20)  , 

HHWI 0(20) ,JJCEL(  54 0) 

OPLOT (  10), IT APE (  10) ,NPTSV( 10) .NVARSIl 0) , LPLUT , 

NPTE  X , LPH I  HI  10 ) , LPLUW ( 10),LSYMB(  10) , PHI  HI  10) , 

PLOW (10) ,LLUGP ( 11, 2), UPSET! 1100) 
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000000  30 
00000040 
00000050 
00000060 
000000  70 
00000080 
ooooooso 
000001 00 
000001 10 
,00000120 
000001  30 
000001  40 
OOOOOl 50 
000001 60 
OOOOOl 70 
OOOOOl 80 
00000190 
,000002  00 
000002 10 
00000220 
000002  30 
00000240 
000002  50 
000002  60 
000002  70 
000002  80 
000002  SO 
,00000300 
000003 10 
00000320 
000003  30 
00000340 
00000350 
00000360 
000003  70 
000003  80 
00000390 
00000400 
000004 10 
00000420 
000004  30 
00000440 
000004  50 
00000460 
000004  70 
00000480 
000004 90 
00000500 
000005 10 
00000520 
000005  30 
00000540 
000005  50 
00000560 
000005  70 
000005 80 
00000590 
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Table  2  (Continued) 


NCROR=5 
NPRNT  *6 
NPUNCH=7 
NRNI 1*8 
NRENT=9 

*****DEF INE  VARIABLES  WHICH  REPRESENT  ARRAY  MAXIMA  ANO  SIMULATION 

♦♦♦♦♦LIMITS 

ID* l 00 

I MN* 100 

IMNA=250 

MAXOS* 1000 

MOA 0*300 

MOOR*600 

MDNPT=40 

MDNSS=60 

MDOAT* 100 

MDQP=1100 

MDST  R=800 

MEUT  *  100 

MFLAG*20 

MM0FN=20 

MMSTU=300 

MNCEL=540 

MNCL$=1350 

MNCcT*20 

MNCUP* I 100 

MNHIS=20 

MNGPA*600 

MNPLT*10 

MNST  P*20 

MNSW A*20 

MNVAR* 10 

MNVPP* 10 

M(jPN0*20 

MPARM=100 

MPL0T=10 

MSTAT*20 

MSYAT* 100 

MTCHR*200 

MXST  A* 50 

MVABA*850 

♦♦♦♦♦EXECUTION  CYCLE  —  REAO  INPUT  DATA,  THEN  INITIATE  THE  SIMULATION 


IF IN*0 

100  CALL  OAT  IN 

IF( IERRF.E0.0)  CALL  GASP 
If < IERRF.EQ.OI  CALL  SUMRY 
IF  (1FIN.EQ.0)  GO  TO  100 
STOP 
C 

END 


00000620 
00000630 
000006 40 
000006  SO 
00000660 
OOOOOo TO 
00000680 
000006  90 
00000700 
000007 10 
00000720 
000007  30 
00000740 
00000750 
00000760 
0 0000770 
0000078 0 
000007 90 
000008 00 
000008 10 
00000820 
00000630 
00000840 
000008 50 
000008 60 
00000870 
00000880 
00000890 
000009 00 
000009 10 
00000920 
00  0009  30 
000009 40 
00000950 
00000960 
000009 70 
000009  80 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
000010  70 
00001080 
00001090 
00001100 
000011 10 
00001120 
000011 30 
00001140 
00001150 
00001160 


i 
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APPENDIX  A  -  SOURCE  CODE 


Following  is  a  listing  of  the  REDIMEN  source  code  Including  an  example  of  the  JCL 
necessary  to  implement  it  on  the  IBM  370  (see  Table  3).  Different  Installations  would, 
of  course,  use  control  cards  appropriate  to  the  specific  machine  and  operating  system 
in  use  at  that  facility. 

Following  the  listing  are  sample  input  data  by  which  a  SAINT  model  could  be  scaled 
down  from  the  default  values.  The  model  defined  would  be  discrete  (no  use  of  state 
variables)  with  20  or  less  tasks.  Redimensioning  in  this  way  would  require  less  space 
when  SAINT  Is  executed. 


Table  3.  Listing  with  JCL 


//RED  1  MEN  JOB 
//  EXEC  FORTGCLG 
//FORT.SYSIN  00  * 

C  R  ED  1  ME  N 

C 

C  PROGRAM  REDIMEN  SERVES  TO  REDIMENSION  THE  ARRAY  S  OF  THE  SAINT 

C  COMMON  BLOCKS  THAT  ARE  AFFECTED  BY  THE  MAXIMUM  VALUE  VARIABLES 

C  I  SEE  “THE  SAINT  USER'S  MANUAL"  SECTION  101. 

C 

C  **I MPORT ANT *•  EACH  INPUT  CARD  CONTAINS  EXACTLY  "1"  MAX  VALUE 

C  OF  FORMAT! 14). 

C 

C 

INTEGER  CMBL! 15)/'M02/‘ , *M09/ • , *MIQ/ ' , • Ml l /• , 'M 12/ ' , 'Ml  3/' , • M14/ • , 
1'M15/'.'M17/','M18/','M19/','M20/','M21/','M23/','M24/'/ 

INTEGER  TAPIN! I8),M(34) 


C 

110 

120 

130 

140 

150 

160 


170 


00  100  I* l *34 
REAO  (5,350)  MU) 

M3=M( 1 )*3 
M4=M( 1)*4 
M5*M( 25) *1 
M21=MI 27 ) *4 
M69=MC26)*M(29» 
M6l=M( 26 )  ♦  1 
M70=M( 13 ) *6 


00  330  J  =  l ,8500 

READ  ( 8, 360, EN0=340 )  TAPIN, INOX 
00  110  1-1,15 

IF  (TAPIN!  5I.EQ.CMBUI)  )  GO  TO  120 
CONTINUE 
1*16 

GO  TO  ( 130,150, 160, 180, 190, 200, 21 0,240,250 ,260, 270,280,290, 3U0 , 31 0 


1,320),  I 

WRITE  (9,370)  M3,M4,INDX 


I NOX* INDX*  10 
WRITE  (9,380)  INDX 
READ  (8,360)  TAPIN, INOX 
GO  TO  330 

WRITE  (9,390)  M( 28) ,M( 28 ) ,M (28 ) ,M ( 28 ) , I NOX 
GO  TO  330 

WRITE  (9,400)  M(2),M(2),M(2),M(2) i INOX 
I NOX* I NOX FlO 

WRITE  (9,410)  M(2),M(2) ,M(2),M( 2) , INDX 


INOX* I NOX ♦ 10 

WRITE  (9,420)  M( 2 ) , M( 2 ) ,M( 2 ) , M ( 2) ,M( 2 ) , INOX 
INDX* IN0X+10 

WRITE  (9,430)  M(2),M(2),M(2),M(2) ,M(2),INDX 
1N0X-IN0X+10 

WRITE  (9,440)  M( 2  ) , Ml 2 ) ,M( 2 ) , M( 2) , INOX 
I NOX* I NOX *10 

WRITE  (9,450)  M( 2 ) , M(2 I ,M( 2 ) , M( 2) , INDX 
INDX-lNOXFlO 

WRITE  (9,460)  Ml 2 ) , M(2) ,M( 2) • INOX 

DO  170  K* 1 ,6 

REAO  (8,360)  TAPIN, INOX 
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Table  3  (Continued) 


GO  TO  330 

180  WRITE  19.470)  Ml  27 )  ,  Ml  2  7)  ,M 1 2  7 )  ,M  1 27  )  , Ml 27  )  ,  1  NDX 
I NDX3 I NDX 4 10 

WRITE  19,480)  Ml  2 1) . M21 , INOX 
GO  TO  140 

190  WRITE  (9.490)  Ml  34) , Ml  3 ) ,M( 32 ) , 1NDX 
GO  TO  330 

200  WRITE  19, 500  )  Ml  1 4) , Ml  14) , Ml  1 5 > , 1 NOX 
GO  TO  330 

210  *K1TE(9,510)  M I  33  ), Ml  33 ) ,M{ 33 } .Ml  33) , 1NDX 

I NOX3 I NOX 4  10 

WRITE (9. 5201  Ml  33), Ml  33 )• Ml  33 ) ,Mt 33) , 1NDX 
INDXMNDX+10 

WRITEI9.530)  Ml  33), Ml  17), INOX 
220  00  230  K=l,2 

230  READ  18.360)  TAP1N.1N0X 

GO  TO  330 

240  WRITE  19,540)  Ml  4 ) , Ml  9) ,M( 1 1 ) ,M( 3 1 > , INOX 
GO  TO  330 

250  WRITE  (9,550)  Ml  12) , Ml  1 2 ) ,MI 12) .Ml  12 ) .Ml  12 ) . INOX 
GO  TO  330 

260  WRITE  (9.560)  Ml  24 ), Ml  5 ) .Ml  6) , INOX 
GO  TO  330 

270  WRITE  (9,570)  Ml  13) , Ml  13 ) ,M ( 13 ) ,M| 13 ) , I NOX 
1  NOX*  1  NOX  4  10 

WRITE  (9,580)  Ml  7), MIS) , M70  ,INDX 
GO  TO  140 

280  WRITE  (9,590)  Ml  30) .Ml  30 ) ,M( 30 ) , I NDX 
GO  TO  330 

290  WRITE  (9,600)  Ml  29) , MI2 9) ,M I  29) ,M I  29) ,M|29) , INOX 
I NDX= I NDX* 10 

WRITE  (9,6101  M(26I,M(26),M(26),M(26),INDX 
I NOX3 I NOX 4 10 

WRITE  (9,6201  Ml  26) .M69.M61 ,MI 10) , INOX 
GO  TO  220 

300  WRITE  (9,630)  Ml  1 8) , Ml  18 ) ,M (23 ) »M( 23 ) , I NDX 
I NDX* I NDX ♦ 10 

WRITE  (9,640)  Ml  23)  ,  Ml  20) ,M 1 20) ,M( 20) , I NOX 
IN0X=INDX410 

WRITE  (9,650)  M(20),M( 16) , I NOX 
GO  TO  220 

310  WRITE  (9,660)  Ml  221 ,M( 2 2) ,M (22) ,M I  22 ) , I NOX 
INOX* I NOX 4 10 

WRITE  (9,670)  M(25),M(25),M(25),M(25),1 NOX 
1N0X  = IN0X4 10 

WRITE  (9,6801  M(25),M5,M( 19), INOX 
GO  TO  220 

320  WRITE  (9,360)  TAPIN.iNOX 
330  CONTINUE 
340  WRITE  (6,690)  J 
END  FILE  9 
STOP 
C 

c 

c 

c 

350  FORMAT  (14) 

360  FGRMAT  U8A4.I8) 

370  FORMAT  1 6  X, 'COMMON  /CCJM02/  AtR  |B(  3)  ,  JTRIBI  2)  .QSETI  •  ,  13  ,  •  ),NSEI  I  •  , 
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Table  3  (Continued) 


13,' ) ,MFA,MXX,' ,5X,I8) 

380  FORMAT  (  5X , • *•  . 15X, • MFE ( 31 , MCE I 3» ,NQ l 3) • ,32X, I  8 ) 

390  FORMAT  I6X, 'COMMON  /COM09/  PARAMI  ‘,1 3, • ,5» ,NPT8U< ‘,1 3, • ),PARMl I ', i 
13, ' ) , PARM4 I ' » 13  » ' )',6X, 181 

400  FORMAT  I6X, 'COMMON  /COM  10/  CAC INI • ,1 3, • ,31 , 1 TCHRI • , I  3, ' I ,LLTSK I • ,  I 
13,’,2),LSINM'  ,13,‘  >,',3X,I8) 

410  FORMAT  I5X»'*',15X, ‘MAC  INI ' >1 3»',4)»MFENI • ,13,' ),MFSTTI ‘,13. • I ,NFT 
1BUI',13,'I • ' ,6X« I  81 

420  FORMAT  I 5X . ' * ' , 1 5X, • MOPI ‘,13, • I.MPOI • . I  3, • I , NOCHI • , 1 3. • » 21 , NOEL  I • » 
113**  ),NQPTI',I3»'  I,  SIX,  1 8) 

430  FORMAT  I5X,'*'  ,15X,  '  NPAR I  '  ,  13  ,  •  )  ,  NPU I  •  ,  13,  '),NPODRI'  ,  13,  •)  .NPQOSI  • 

1.13,  ‘ ) »NPQPI • » 13, • I » • » 18) 

440  FORMAT  I 5X , ,15X, • NPORI ',13,'), NPSGN1 ',13,'), NKEL I ',13,' 1, NR EL PI 
l',13,'),',9X,IB) 

450  FORMAT  I 5X , ' * • , 1 5X, • NRE L2 1 • , 1 3, • 1 ,NS IGNI • ,  13, • 1 ,NTCI  ',13,'), NT CH« I 
1 • , I  3 , • ) * ' , 9X» I  8) 

460  FORMAT  I5X, ,15X, 'NTVPEI • , I  3 , • 1 , KM ARK  I ' , 13, ' ) ,XMARKI • ,13,' ) • ,19X 
1,18) 

470  FORMAT  I6X, 'COMMON  /COMU/  BUSY! ',  12  ,*>  .LLRESI ',  1 2,  •  ,2  )  ,N6US  I ',  12  , 
1* ) .NOPTRI • ,12, • l.TCSTI • ,  12, •), ' ,2X,J8) 

480  FORMAT  I 5X , ' * • , 1 5 X, • NOPAI • , 13 , ' ) , RST ATI • , 1 4, • ) ' , 30X, 1 8 ) 

490  FORMAT  1 6X ,' COMMON  /COM  12/  YABAI',14, •) ,NABAI ', 13,') , STCHR I ' , 1 3, ' ) 
1  •  • 20X ,18) 

500  FORMAT  I 6X , 'COMMON  /COM  13/  MOFNS 1 • , 1 2 , • ) , MFSTWl  • , I  2, • ) , MFSTUI • , 13 , 
1*  )• ,21X, 18) 

510  FORMAT I6X, 'COMMON  /C0M14/  NSI NX I  *  ,  1 4 ,  •  ) , KS TPE 1 ' , 1 4 , ' 1 , K STTMI  • , 1 4, 
l'),XSTUSI',I4,'l,',3X,18) 

520  FORMAT  I 5X , • * • , 1 5X , • NCELSI ' , 14, • ) , XLOwC • , 14 , • ) ,M IDTHl • , 1 4, • )  ,  SUMAI  I 
1 • « 1 4, • • 5 ) , • , 2X , i 8 ) 

5  30  FORMAT  1 5X,'*',15X,'SUMAFI', 14 , • , 5 ) , JCEL SI ' , 14, • ) • ,26X, I  8) 

540  FORMAT  I6X, 'COMMON  /C0M15/  OESCRI ',14,' I , OOATTI  ',13, ' ) , MOST 3  I  1 , 13 , 
1 • ) , SYSAT I', 13,')' ,7X, 18 ) 

550  FORMAT  I 6X , • COMMON  /COM  17/  SS I ', I  3, • I , S SL I », I  3,  » I ,00 1 ', 13, '), DDL!  • 

1.13,  • ),LLSVRI • ,13,' ,2)' ,5X, 18) 

560  FORMAT  1 6X ,' COMMON  /COM  18/  IS  I • , I  2, • I .NABAOi ' , I  3, ' ) , YAB ARI • , I  3 , • ) ' 
1  ,23X, 18) 

570  FORMAT  |6X, 'COMMON  /CCM19/  LFLAGl ',12,') »NPQSSI  ' , 12 , ' ) , NPOST 1 '  , 12 , 
l ' ) , LLMON I '  ,12, • ,2), • ,9X, 18) 

580  FORMAT  15X,'*' ,15X, 'NABATI • ,14,' ) ,NAdASt • , 14, •) ,THKE  SI  * ,13,' ) • ,17X 
1,18) 

590  FORMAT  |6X, 'COMMON  /C0M20/  NSTAI l • , I  2 , ' ) ,LCSVSI  • , 1 2, • , 2  )  ,SSTPVI • , 1 
12,  •  ,6) ' , 18X, 18) 

600  FORMAT  I6X, 'COMMON  /C0M21/  OTPLTI * , 12 , ' 1 , 1 ITAPI • , I  2, *) ,NNPTS I ' , 12 , 
1 • ) , NNVARI ',12,'), NNVPI ',12,'),',2X,I8) 

610  FORMAT  I  5X  ,  '  ,  15X,  •  LLPLT  ,NNP  T  ,U  PHI  1  •  ,  12,  •  )  .LLPLOl  •  ,  12,  • )  ,L  LS  YMI  • 

1.12, ' ),P PH  II', 12,'),', IX, 18) 

620  FORMAT  I5X,'*',15X, 'PPLOI ', 12, ' ), NVP I • , 1 3, • ) ,LL SVPI • ,12, ',2) , UPSET 
1I',I4,')',10X,I8) 

630  FORMAT  16X, 'COMMON  /COM23/  LLUGC! ' , I  2 , ' ,2 ) , US08 VI • , 1 2, •  ,5) ,LLUGTI  • 

1.12,  ', 2) , TTCLR I ' , 12, * ) , ' , 5X , 1 8 ) 

640  FORMAT  I5X,'*' ,15X, 'USTPVI ' , I  2 , • • 6) , LLUGHI • , 12, • ,2) , NNCELI * , 12 , ' ) , 
1HHL0WI ',12,' ), • ,7X, 18) 

650  FORMAT  I  5X , • •' , 15X, 'HHH 101 • , 1 2, *  I , JJCEL1 » , 13, • I • , 31X , I  8 1 
660  FORMAT  1 6X , 'COMMON  /C0M24/  DPLOT I  •  , I  2 , • ) , l TAPE!  • , 1 2, • ) , NPTSVI • , 12 , 
l ' ) , NV ARS I ' ,12, • ) , LPLOT, • ,5X,I8) 

67  0  FORMAT  15X,'*' ,15X, •  NPTEX.LPM  IHl  •  ,12, ' ) ,1  PLOW  1 • , 12 , • ),CSVMd{ ' , 12,' 
i J  «PHIH{ ' , I  2, • I , • ,6X , 1 8) 

680  FORMAT  15X,'*' , 1 5X, ' PLOW! ',12,'), LLUGPI • , I  2, • ,2 ) , UPSET  I  ',14, •) ',19 
IX, 18) 
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Table  3  (Continued) 


690  FORMAT  <*J*».I5) 

C 

C 

END 

//GO. FT08F001  DO  UNI T*TAPE# VOL* SER*SAINT »0I SP*OLD,L ABEL* 1 1 • NU » 
//  0C8*IRECFM*FB»BLKSIZE«80.LRECL*80I 

//GO.FT09F001  00  UNIT*DI SK» VOL* SE REPUBLIC »DSN* NEW SAINT • 

//  DISP*( NEW t  KEEP ) «  SPACE*! TRK» (10*5) «RL SE«CQNTIGI » 

//  DC8* ( RECFM*FBf LRECL*80« 8LKSIZE=6400I 

//GO. SYS IN  DO  * 

20  ID 


20 

25 

100 

30 


IMN 
INNA 
MAX  OS 
MOAO 


60 

4 


MOOR 

MONPT 


6 


MONSS 


MDOAT 

MOQP 

MOSTR 

MEQT 


2 

5 

50 


MFLAG 

MMOFN 

MMSTU 


200 

200 

10 


MNCEL 

MNCLS 

MNCLT 


2 

10 

20 

10 

10 


MNCUP 

MNHIS 

MNOPA 

MNPLT 

MNSTP 


2 

10 

10 

2 

20 

10 

2 

5 

40 

10 

150 


MNSWA 

MNVAR 

MNVPP 

MOPNO 

MPARM 

MPLOT 

MSTAT 

MSVAT 

MTCHR 

MXSIA 

MYABA 
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